home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / magic / d / mtaesmen.d < prev    next >
Text File  |  1997-10-26  |  3KB  |  49 lines
  1. (*----------------------------------------------------------------------*
  2.  *                                                                      *
  3.  *  MAGICTOOLS   Modula's  All purpose  GEM  Interface  Cadre  Toolbox  *
  4.  *               ÿ         ÿ            ÿ    ÿ          ÿ               *
  5.  *----------------------------------------------------------------------*
  6.  * Version 3.30  02.02.1992     (C)90/91/92 by Peter Hellinger Software *
  7.  *----------------------------------------------------------------------*
  8.  *            Dieses Modul ist urheberrechtlich geschtzt.              *
  9.  *                                                                      *
  10.  * Die Ver”ffentlichung des Quelltextes oder Teilen daraus, sowie die   *
  11.  * Verbreitung des bersetzten, nicht gelinkten Codes in schriftlicher, *
  12.  * oder maschinenlesbarer Form, insbesondere in Zeitschriften, Mail-    *
  13.  * boxen oder anderen Medien bedarf der ausdrcklichen schriftlichen    *
  14.  * Einverst„ndnisserkl„rung des Autors.                                 *
  15.  *                                                                      *
  16.  * Die Verbreitung des Moduls als Teil eines gelinkten Programms ist    *
  17.  * fr Lizenznehmer ausdrcklich erlaubt!  Der Autor beh„lt sich das    *
  18.  * Recht vor, diese Erlaubnis jederzeit und ohne Angaben von Grnden zu *
  19.  * widerrufen.                                                          *
  20.  *----------------------------------------------------------------------*)
  21.  
  22. (*----------------------------------------------------------------------*
  23.  * mtAESMenus   Manipulation der AES-Menzeile. Initialisiert die Men- *
  24.  *              zeile, und bringt sie auf den Schrim. Installiert eine  *
  25.  *              TermProc in mtAppl, so daž man sich um das Zurcksetzen *
  26.  *              der Menzeile nicht kmmern muž.                        *
  27.  *----------------------------------------------------------------------*)
  28.  
  29. DEFINITION MODULE mtAESMenus;
  30.  
  31. IMPORT SYSTEM;
  32.  
  33. PROCEDURE InitMenuline (menu: SYSTEM.ADDRESS): BOOLEAN;
  34. (* Initialisiert eine Menuzeile. Dabei werden die '----' Eintr„ge wie bei
  35.  * Flydial-Programmen mit einer Linie ersetzt. Achtung! Dies gilt vorl„ufig
  36.  * nur fr Megamax-Modula-2 Programme! Liefert FALSE wenn fehlgeschlagen!
  37.  *)
  38.  
  39. PROCEDURE DrawMenuline (menu: SYSTEM.ADDRESS);
  40. (* Bringt eine Menzeile auf den Schirm. Dabei wird eine TermProc in mtAppl
  41.  * installiert, so daž man sich bei Programmende nicht um das Zurcksetzen
  42.  * der Menuzeile kmmern muž.
  43.  *)
  44.  
  45. PROCEDURE ResetMenuline;
  46. (* Setzt die Menzeile zurck. *)
  47.  
  48. END mtAESMenus.
  49.